home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 1: Comms & Networking / Almathera Ten on Ten - Disc 1: Comms & Networking.iso / amiga2amiga / envoy / envoy2.0patch / install < prev    next >
Text File  |  1995-04-12  |  6KB  |  259 lines
  1. ; Envoy Patch Installation script
  2. ;
  3. ; By Heinz Wrobel for Intangible Assets Manufacturing
  4. ;
  5. ; $Id: Install 2.13 1995/03/30 18:19:59 heinz Exp $
  6. ;
  7.  
  8.  
  9. ( if (= @language "english")
  10. (
  11.   (set #use20
  12.   (cat "You must be using Kickstart 2.04 or higher to install this Envoy Patch."
  13.   ))
  14.   (set #wherebase_msg
  15.   (cat "On which device or drawer is the Envoy drawer located?"
  16.   ))
  17.   (set #wherebase_help
  18.   (cat "This installation can't locate the Envoy drawer by itself. You need "
  19.        "to specify the device or drawer where the Envoy drawer can be found."
  20.   ))
  21.   (set #whereEFSserver
  22.   (cat "Where should the updated filesystem.service be placed?"
  23.   ))
  24.   (set #whereEFSserverhelp
  25.   (cat "In the Envoy drawer you will find a \"services\" drawer. "
  26.        "filesystem.service should be placed into this drawer."
  27.   ))
  28.   (set #whereenvoylib
  29.   (cat "Where should the updated envoy.library be placed?"
  30.   ))
  31.   (set #whereenvoylibhelp
  32.   (cat "envoy.library should be placed into SYS:LIBS to be available right after "
  33.        "booting."
  34.   ))
  35.   (set #useA2060
  36.   (cat "Do you use Commodore ARCNET-boards?"
  37.   ))
  38.   (set #useA2060help
  39.   (cat "If you use Commodore ARCNET-boards, the a2060.device will be updated."
  40.   ))
  41.   (set #whereA2060
  42.   (cat "Where should the updated a2060.device be placed?"
  43.   ))
  44.   (set #whereA2060help
  45.   (cat "The standard place for the a2060.device is in the \"DEVS:Networks\" drawer."
  46.   ))
  47.   (set #done
  48.   (cat "The Envoy patch is now installed. Please reboot this Amiga before using Envoy again."
  49.   ))
  50. ;  (set #
  51. ;  (cat
  52. ;  ))
  53. ))
  54. ( if (= @language "deutsch")
  55. (
  56.   (set #use20
  57.   (cat "Sie müssen Kickstart 2.04 oder höher benutzen um diesen Envoy-Patch "
  58.        "installieren zu können."
  59.   ))
  60.   (set #wherebase_msg
  61.   (cat "Auf welchem Gerät oder in welchem Verzeichnis ist die Envoy-Schublade zu finden?"
  62.   ))
  63.   (set #wherebase_help
  64.   (cat "Die Installation kann die Schublade in der sich die Envoy-Schublade befindet "
  65.        "nicht selbständig finden. Bitte geben Sie die entsprechende Schublade an."
  66.   ))
  67.   (set #whereEFSserver
  68.   (cat "Wo soll der erneuerte filesystem.service abgelegt werden?"
  69.   ))
  70.   (set #whereEFSserverhelp
  71.   (cat "In der Envoy-Schublade befindet sich ein Unterverzeichnis \"Services\". "
  72.        "filesystem.service sollte dort abgelegt werden."
  73.   ))
  74.   (set #whereenvoylib
  75.   (cat "Wo soll die erneuerte envoy.library abgelegt werden?"
  76.   ))
  77.   (set #whereenvoylibhelp
  78.   (cat "envoy.library sollte immer in der Schublade \"SYS:LIBS\" abgelegt werden."
  79.   ))
  80.   (set #useA2060
  81.   (cat "Verwenden Sie Commodore ARCNET-Karten?"
  82.   ))
  83.   (set #useA2060help
  84.   (cat "Wenn Sie Commodore ARCNET-Karten verwenden, wird die a2060.device erneuert."
  85.   ))
  86.   (set #whereA2060
  87.   (cat "Wo soll die erneuerte a2060.device abgelegt werden?"
  88.   ))
  89.   (set #whereA2060help
  90.   (cat "Die a2060.device sollte normalerweise in der Schublade \"DEVS:Networks\" abgelegt werden."
  91.   ))
  92.   (set #done
  93.   (cat "Der Envoy-Patch ist jetzt installiert. Bitte starten Sie diesen Amiga neu bevor Sie "
  94.        "Envoy wieder benutzen."
  95.   ))
  96. ;  (set #
  97. ;  (cat
  98. ;  ))
  99. ))
  100.  
  101. ;----------------------------------------------------------------------------
  102. ; Cleanup any temporary mess we created
  103. (procedure CLEANUP
  104. (
  105.     (if tmp_dir
  106.         (if (exists tmp_dir)
  107.             (run (cat "C:Delete QUIET ALL FORCE \"" tmp_dir "\"") (safe))
  108.         )
  109.     )
  110.     (if tmp_iconfile
  111.         (if (exists tmp_iconfile)
  112.             (delete tmp_iconfile (safe))
  113.         )
  114.     )
  115. ))
  116.  
  117. ;----------------------------------------------------------------------------
  118. (procedure INSTALLPATCH
  119.   (
  120.     (if (exists (tackon envoy_source src_file))
  121.       (
  122.         (if (NOT (exists (tackon envoy_dest src_file)))
  123.             (set envoy_dest
  124.                 (askdir
  125.                     (prompt where_msg)
  126.                     (help where_help)
  127.                     (default envoy_dest)
  128.                 )
  129.             )
  130.         )
  131.  
  132.         (if dopatch
  133.             (run (cat (tackon tmp_dir "spatch") " \"-o" (tackon tmp_dir src_file) "\" \"-p" (tackon tmp_dir pch_file) "\" \"" (tackon envoy_source src_file) "\""))
  134.         )
  135.         (copylib
  136.             (source (tackon tmp_dir src_file))
  137.             (dest   envoy_dest)
  138.             (optional "oknodelete" "force" "askuser")
  139.         )
  140.       )
  141.     )
  142.   )
  143. )
  144. ;----------------------------------------------------------------------------
  145. ; *** THIS IS THE ACTUAL START OF THE INSTALLATION ***
  146.  
  147. (if (< (/ (getversion) 65536) 37)
  148.         (abort #use20)
  149. )
  150.  
  151. (onerror (CLEANUP))
  152.  
  153. ; create the temporary directory that we need for unpacking some stuff
  154. (set tmp_dir "RAM:EID")
  155. (makedir tmp_dir (safe))
  156.  
  157. (set envoybase "SYS:Envoy")
  158. (if (NOT (exists envoybase (noreq)))
  159.     (set envoybase "WORK:Envoy")
  160. )
  161.  
  162. (if (NOT (exists envoybase (noreq)))
  163.     (set envoybase "ENVOY:")
  164. )
  165.  
  166. (if (NOT (exists envoybase (noreq)))
  167.   (
  168.     (set envoybase
  169.         (tackon
  170.             (askdir
  171.                 (prompt #wherebase_msg)
  172.                 (help #wherebase_help)
  173.                 (default "SYS:")
  174.             )
  175.             "Envoy"
  176.         )
  177.     )
  178.   )
  179. )
  180.  
  181. (if (NOT @pretend)
  182.     (set @default-dest envoybase)
  183. )
  184.  
  185. (complete 5)
  186.  
  187. (copyfiles (source "envoy.pch")
  188.            (dest tmp_dir) (nogauge) (safe))
  189. (copyfiles (source "filesystem.pch")
  190.            (dest tmp_dir) (nogauge) (safe))
  191. (copyfiles (source "a2060.device")
  192.            (dest tmp_dir) (nogauge) (safe))
  193. (copyfiles (source "spatch")
  194.            (dest tmp_dir) (nogauge) (safe))
  195.  
  196. (complete 10)
  197.  
  198. (set envoy_source "EnvoyInstall:libs")
  199. (set envoy_dest "SYS:LIBS")
  200. (set pch_file "envoy.pch")
  201. (set src_file "envoy.library")
  202. (set where_msg #whereenvoylib)
  203. (set where_help #whereenvoylibhelp)
  204. (set dopatch 1)
  205. (INSTALLPATCH)
  206.  
  207. (complete 40)
  208.  
  209. (set envoy_source "EnvoyInstall:services")
  210. (set envoy_dest (tackon envoybase "Services"))
  211. (set pch_file "filesystem.pch")
  212. (set src_file "filesystem.service")
  213. (set where_msg #whereEFSserver)
  214. (set where_help #whereEFSserverhelp)
  215. (set dopatch 1)
  216. (INSTALLPATCH)
  217.  
  218. (complete 70)
  219.  
  220. (set instA2060 0)
  221. (set envoy_source "EnvoyInstall:devs/networks")
  222. (set envoy_dest "SYS:DEVS/Networks")
  223. (set src_file "a2060.device")
  224. (set where_msg #whereA2060)
  225. (set where_help #whereA2060help)
  226. (set dopatch 0)
  227.  
  228. (if (exists (tackon envoy_dest src_file))
  229.   (
  230.     (set instA2060 1)
  231.   )
  232.   (
  233.     (set instA2060
  234.       (= 1 (askbool
  235.             (prompt #useA2060)
  236.             (help #useA2060help)
  237.            )
  238.       )
  239.     )
  240.   )
  241. )
  242.  
  243. (if instA2060
  244.   (
  245.     (INSTALLPATCH)
  246.   )
  247. )
  248.  
  249. (complete 90)
  250.  
  251. (CLEANUP)
  252.  
  253. (complete 100)
  254.  
  255. (message #done)
  256.  
  257. (exit (quiet))
  258.  
  259.